DATAS SEGMENT  
    SUR DW 0,-1,07FH,07FH,07FH,07FH,07FH,07FH,07FH,07FH
    N EQU $-SUR
    NEGATIVE DW ?
DATAS ENDS

CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS
START:
	MOV AX,DATAS
    MOV DS,AX
  
    LEA SI,SUR
    MOV CX,N/2
LOP:
    MOV BX,[SI]
    CMP BX,8000H
    JBE EXIT
    INC NEGATIVE
    
EXIT:
    ADD SI,2
    LOOP LOP
    
    MOV AH,4CH   
    INT 21H
CODES ENDS
    END START